home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / system-tools / runpal / runpal.s < prev    next >
Encoding:
Text File  |  1996-07-16  |  860 b   |  52 lines
  1.  
  2.     incdir    demo:
  3.     include    includes/exec_lib.i
  4.     include    includes/dos_lib.i
  5.     include    includes/graphics_lib.i
  6.  
  7.     section    runPAL,code
  8.  
  9.     cmp.b        #10,(a0)
  10.     beq.w        exit
  11.     subq.w        #2,d0
  12.  
  13.     lea        name,a1
  14. loop    move.b        (a0)+,(a1)+
  15.     dbf        d0,loop
  16.  
  17.     openlibrary    graphics,0
  18.     beq.s        exit
  19.     openlibrary    dos,0
  20.     beq.s        exit
  21.     move.l        graphicsbase,a6
  22.     move.l        $22(a6),prev_view
  23.     sub.l        a1,a1
  24.     call        loadview
  25.     call        waittof
  26.     call        waittof
  27.  
  28.     move.l        #name,d1
  29.     moveq        #0,d2
  30.     moveq        #0,d3
  31.     calldos        execute
  32.  
  33.     move.l         graphicsbase,a6
  34.     move.l        prev_view,a1
  35.     jsr        _lvoloadview(a6)
  36.     closelibrary    dos
  37.     closelibrary    graphics
  38. exit    moveq        #0,d0
  39.     rts
  40.  
  41.  
  42.     section    runik,data
  43. graphicsname    dc.b    'graphics.library',0
  44. dosname        dc.b    'dos.library',0
  45. verstring    dc.b    '$VER:runPAL v1.0 by Noster of Venture. 27.06.96',0
  46.  
  47.     section    runniczek,bss
  48. graphicsbase    ds.l    1
  49. dosbase        ds.l    1
  50. prev_view    ds.l    1
  51. name        ds.b    256
  52.